home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / cmpnew / cmpvs.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  3.8 KB  |  194 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "cmpvs.h"
  4. init_cmpvs(){do_init(VV);}
  5. /*    local entry for function VS-PUSH    */
  6.  
  7. static object LI1()
  8.  
  9. {     VMB1 VMS1 VMV1
  10. TTL:;
  11.     {object V1;
  12.     V1= make_cons(symbol_value(VV[0]),symbol_value(VV[1]));
  13.     setq(VV[1],number_plus(symbol_value(VV[1]),small_fixnum(1)));
  14.     setq(VV[2],(number_compare(symbol_value(VV[1]),symbol_value(VV[2]))>=0?(symbol_value(VV[1])):symbol_value(VV[2])));
  15.     {object V2 = (V1);
  16.     VMR1(V2)}}
  17. }
  18. /*    local entry for function SET-VS    */
  19.  
  20. static object LI2(V5,V6)
  21.  
  22. register object V5;object V6;
  23. {     VMB2 VMS2 VMV2
  24. TTL:;
  25.     if(!(type_of((V5))==t_cons)){
  26.     goto T6;}
  27.     if(!((car((V5)))==(VV[3]))){
  28.     goto T6;}
  29.     if(equal(cadr((V5)),(V6))){
  30.     goto T7;}
  31. T6:;
  32.     princ_str("\n    ",VV[4]);
  33.     (void)((*(LnkLI11))((V6)));
  34.     princ_str("= ",VV[4]);
  35.     (void)((*(LnkLI12))((V5)));
  36.     princ_char(59,VV[4]);
  37.     {object V7 = Cnil;
  38.     VMR2(V7)}
  39. T7:;
  40.     {object V8 = Cnil;
  41.     VMR2(V8)}
  42. }
  43. /*    local entry for function WT-VS    */
  44.  
  45. static object LI3(V10)
  46.  
  47. register object V10;
  48. {     VMB3 VMS3 VMV3
  49. TTL:;
  50.     if(!((car((V10)))==(VV[5]))){
  51.     goto T19;}
  52.     princ_char(86,VV[4]);
  53.     (void)((*(LnkLI12))(cadr((V10))));
  54.     {object V11 = Cnil;
  55.     VMR3(V11)}
  56. T19:;
  57.     if(!((car((V10)))==(VV[6]))){
  58.     goto T24;}
  59.     princ_str("Vcs[",VV[4]);
  60.     (void)((*(LnkLI12))(cdr((V10))));
  61.     princ_char(93,VV[4]);
  62.     {object V12 = Cnil;
  63.     VMR3(V12)}
  64. T24:;
  65.     if(!(number_compare(car((V10)),symbol_value(VV[0]))==0)){
  66.     goto T30;}
  67.     princ_str("base[",VV[4]);
  68.     (void)((*(LnkLI12))(cdr((V10))));
  69.     princ_char(93,VV[4]);
  70.     {object V13 = Cnil;
  71.     VMR3(V13)}
  72. T30:;
  73.     princ_str("base",VV[4]);
  74.     (void)((*(LnkLI12))(car((V10))));
  75.     princ_char(91,VV[4]);
  76.     (void)((*(LnkLI12))(cdr((V10))));
  77.     princ_char(93,VV[4]);
  78.     {object V14 = Cnil;
  79.     VMR3(V14)}
  80. }
  81. /*    local entry for function WT-VS*    */
  82.  
  83. static object LI4(V16)
  84.  
  85. object V16;
  86. {     VMB4 VMS4 VMV4
  87. TTL:;
  88.     princ_char(40,VV[4]);
  89.     (void)((*(LnkLI11))((V16)));
  90.     princ_str("->c.c_car)",VV[4]);
  91.     {object V17 = Cnil;
  92.     VMR4(V17)}
  93. }
  94. /*    local entry for function WT-CCB-VS    */
  95.  
  96. static object LI5(V19)
  97.  
  98. object V19;
  99. {     VMB5 VMS5 VMV5
  100. TTL:;
  101.     princ_str("(base0[",VV[4]);
  102.     V20= number_minus(symbol_value(VV[7]),(V19));
  103.     (void)((*(LnkLI12))(/* INLINE-ARGS */V20));
  104.     princ_str("]->c.c_car)",VV[4]);
  105.     {object V21 = Cnil;
  106.     VMR5(V21)}
  107. }
  108. /*    local entry for function CLINK    */
  109.  
  110. static object LI6(V23)
  111.  
  112. object V23;
  113. {     VMB6 VMS6 VMV6
  114. TTL:;
  115.     setq(VV[8],(V23));
  116.     {object V24 = symbol_value(VV[8]);
  117.     VMR6(V24)}
  118. }
  119. /*    local entry for function WT-CLINK    */
  120.  
  121. static object LI7(va_alist)
  122.     va_dcl 
  123. {    
  124.     va_list ap;
  125.     int narg = VFUN_NARGS; VMB7 VMS7 VMV7
  126.     {object V25;
  127.     narg = narg - 0;
  128.     if (narg <= 0) goto T48;
  129.     else {
  130.     va_start(ap);
  131.     V25= va_arg(ap,object);}
  132.     --narg; goto T49;
  133. T48:;
  134.     V25= symbol_value(VV[8]);
  135. T49:;
  136.     if(((V25))!=Cnil){
  137.     goto T52;}
  138.     princ_str("Cnil",VV[4]);
  139.     {object V26 = Cnil;
  140.     VMR7(V26)}
  141. T52:;
  142.     {object V27 = (*(LnkLI11))((V25));
  143.     VMR7(V27)}}
  144.     }
  145. /*    local entry for function CCB-VS-PUSH    */
  146.  
  147. static object LI8()
  148.  
  149. {     VMB8 VMS8 VMV8
  150. TTL:;
  151.     setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
  152.     {object V28 = symbol_value(VV[9]);
  153.     VMR8(V28)}
  154. }
  155. /*    local entry for function CVS-PUSH    */
  156.  
  157. static object LI9()
  158.  
  159. {     VMB9 VMS9 VMV9
  160. TTL:;
  161.     {object V29;
  162.     V29= make_cons(VV[6],symbol_value(VV[10]));
  163.     setq(VV[10],number_plus(symbol_value(VV[10]),small_fixnum(1)));
  164.     {object V30 = (V29);
  165.     VMR9(V30)}}
  166. }
  167. /*    local entry for function WT-LIST    */
  168.  
  169. static object LI10(V32)
  170.  
  171. object V32;
  172. {     VMB10 VMS10 VMV10
  173. TTL:;
  174.     {register object V33;
  175.     V33= (V32);
  176. T60:;
  177.     if(((V33))!=Cnil){
  178.     goto T61;}
  179.     {object V34 = Cnil;
  180.     VMR10(V34)}
  181. T61:;
  182.     (void)((*(LnkLI12))(car((V33))));
  183.     if(!((cdr((V33)))==Cnil)){
  184.     goto T68;}
  185.     goto T67;
  186. T68:;
  187.     princ_char(44,VV[4]);
  188. T67:;
  189.     V33= cdr((V33));
  190.     goto T60;}
  191. }
  192. static object  LnkTLI12(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[12],&LnkLI12,1,ap);} /* WT1 */
  193. static object  LnkTLI11(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[11],&LnkLI11,1,ap);} /* WT-VS */
  194.